object DMPodmiotWRelacji: TDMPodmiotWRelacji
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 369
  Width = 396
  object ADQRodzajePodmiotyRel: TADQuery
    SQL.Strings = (
      'select * '
      'from RodzajeRelacji '
      'order by chRodzajRelacji')
    Left = 64
    Top = 8
  end
  object ADQPodmiotyRel: TADQuery
    SQL.Strings = (
      'select D.*, '#39'nowa'#39' as stan, '#39'1'#39' as sort'
      'from PodmiotyWRelacjiView D'
      'where D.inKRS = :krs'
      '  and D.pub_dodany = :pub'
      '  and D.data_dodany = :data'
      'union all'
      'select D.*, '#39'skasowana'#39' as stan, '#39'2'#39' as sort'
      'from PodmiotyWRelacjiView D'
      'where D.inKRS = :krs'
      '  and D.pub_skasowany = :pub'
      '  and D.data_skasowany = :data'
      'union all'
      'select D.*, '#39'jest'#39' as stan, '#39'3'#39' as sort'
      'from PodmiotyWRelacjiView D'
      'where D.inKRS = :krs'
      
        ' and (D.data_dodany < :data or (D.data_dodany = :data and D.pub_' +
        'dodany < :pub))'
      
        ' and ((D.data_skasowany > :data or (D.data_skasowany = :data and' +
        ' D.pub_skasowany > :pub)) '
      #9'  or '
      '      (D.pub_skasowany is null and D.data_skasowany is null)) '
      'order by sort, D.chNazwa')
    Left = 64
    Top = 64
    ParamData = <
      item
        Name = 'KRS'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'KRS'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'KRS'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end>
  end
  object ADQDodajPodmiotWRelacji: TADQuery
    Left = 224
    Top = 8
  end
  object ADQUsunPodmiotWRelacji: TADQuery
    Left = 224
    Top = 64
  end
  object ADQZapiszPodmiotWRelacji: TADQuery
    Left = 64
    Top = 120
  end
  object ADQidRodzajePodmiotWRelacji: TADQuery
    SQL.Strings = (
      'select idRodzajeRelacji '
      'from RodzajeRelacji '
      'where chRodzajRelacji = :rodzaj')
    Left = 224
    Top = 120
    ParamData = <
      item
        Name = 'RODZAJ'
        ParamType = ptInput
      end>
  end
  object ADQidNazwyRejestru: TADQuery
    SQL.Strings = (
      'select idNazwyRejestrow '
      'from NazwyRejestrow '
      'where chRejestr = :rejestr')
    Left = 224
    Top = 176
    ParamData = <
      item
        Name = 'REJESTR'
        ParamType = ptInput
      end>
  end
  object ADQidSaduPodmiotWRelacji: TADQuery
    SQL.Strings = (
      'select idSaduOgloszeniaXML '
      'from SadyOgloszeniaXML '
      'where chSadOgloszeniaXML = :sad')
    Left = 224
    Top = 232
    ParamData = <
      item
        Name = 'SAD'
        ParamType = ptInput
      end>
  end
  object ADQidNazwyPodmiotWRelacji: TADQuery
    SQL.Strings = (
      'select idPodmiotu '
      'from Podmioty '
      'where chNazwa = :nazwa')
    Left = 224
    Top = 288
    ParamData = <
      item
        Name = 'NAZWA'
        ParamType = ptInput
      end>
  end
end
